options compress=YES;
libname manasi ''; 

* USE ONLY HUN AND PAN FROM PARENTS' SSR RECORDS;
data manasi.ssr_parents_hunpan;
	set manasi.ssr_parents_full(keep=hun pan toa mft dob dobyy dod sex);
	if pan='*00000000' then delete;
run;

* ELIMINATE DUPLICATES BY HUN AND PAN AND SORT ;
proc sort data=manasi.ssr_parents_hunpan out=manasi.ssr_parents_hunpan nodupkey;
	by pan hun;
run;

* SORT PARENT SSR RECORDS ;
proc sort data=manasi.par_ssr_prep2 out=manasi.par_ssr_prep2;
	by pan;
run;

* MERGE IN PARENT SSR RECORDS ;
data manasi.par_ssr_hunmerge;
	merge 	
			manasi.ssr_parents_hunpan 
			(rename=(pan=ssn dob=dob_ssr dobyy=dobyy_ssr sex=sex_ssr toa=toa_ssr mft=mft_ssr dod=dod_ssr) 
				in=fromssrx)

			manasi.par_ssr_prep2 
			(
				rename=(pan=ssn dib_dig=pardibdig dib_dig2=pardibdig2) 
				keep=pan dib_dig dib_dig2 /* n_parfedamt_: */ n_parcombpay_: n_paronssi_:
				in=fromparssrx
				where=(ssn^='*00000000')
			);

	by ssn; 
	fromssr = fromssrx;
	fromparssr = fromparssrx;

run;

proc tabulate data=manasi.par_ssr_hunmerge;
	class fromparssr fromssr;
	table fromparssr, fromssr;
run;

* MERGE IN VARIABLE INDICATING WHETHER PARENT WAS IN HOUSEHOLD AT ANY TIME
BETWEEN 2002 AND 2006 (GENERAL TREATMENT PERIOD);
proc sort data=manasi.par_ssr_hunmerge out=manasi.par_ssr_hunmerge;
	by hun ssn;
run;

data manasi.par_ssr_hunmerge;
	merge 	
			manasi.par_ssr_hunmerge 

			manasi.ssr_parents_estpdonly_wide
			(rename=(pan=ssn) keep=hun pan inhh0206);

	by hun ssn; 
run;

proc sort data=manasi.par_ssr_hunmerge out=manasi.par_ssr_hunmerge;
	by hun;
run;

data manasi.par_ssr_hunmerge_wide;
	set manasi.par_ssr_hunmerge;
	par_id + 1;
	by hun;
	if first.hun then par_id=1;
run;

data manasi.par_ssr_hunmerge_wide;
	set manasi.par_ssr_hunmerge_wide;
	if ssn='*00000000' then delete;
run;

proc means data=manasi.par_ssr_hunmerge_wide noprint;
	by hun;
	var par_id;
	output out=manasi.par_ssr_parid max(par_id)=max_parid;
run;

proc means mean median min max p90 p95 p99 data=manasi.par_ssr_parid;
	var max_parid;
run;

* COLLAPSE TO HUN LEVEL TO GET ONE RECORD FOR EACH KID;
data manasi.par_ssr_hunmerge_wide;
	set manasi.par_ssr_hunmerge_wide;
	by hun;

	keep 	hun 
			ssn1-ssn7 
			toa_ssr1-toa_ssr7 
			mft_ssr1-mft_ssr7
			dob_ssr1-dob_ssr7
			dobyy_ssr1-dobyy_ssr7 
			dod_ssr1-dod_ssr7 
			sex_ssr1-sex_ssr7
			
			inhh0206_1-inhh0206_7
			n_parcombpay_1985_1-n_parcombpay_1985_7
			n_parcombpay_1986_1-n_parcombpay_1986_7
			n_parcombpay_1987_1-n_parcombpay_1987_7
			n_parcombpay_1988_1-n_parcombpay_1988_7
			n_parcombpay_1989_1-n_parcombpay_1989_7
			n_parcombpay_1990_1-n_parcombpay_1990_7
			n_parcombpay_1991_1-n_parcombpay_1991_7
			n_parcombpay_1992_1-n_parcombpay_1992_7
			n_parcombpay_1993_1-n_parcombpay_1993_7
			n_parcombpay_1994_1-n_parcombpay_1994_7
			n_parcombpay_1995_1-n_parcombpay_1995_7
			n_parcombpay_1996_1-n_parcombpay_1996_7
			n_parcombpay_1997_1-n_parcombpay_1997_7
			n_parcombpay_1998_1-n_parcombpay_1998_7
			n_parcombpay_1999_1-n_parcombpay_1999_7
			n_parcombpay_2000_1-n_parcombpay_2000_7
			n_parcombpay_2001_1-n_parcombpay_2001_7
			n_parcombpay_2002_1-n_parcombpay_2002_7
			n_parcombpay_2003_1-n_parcombpay_2003_7
			n_parcombpay_2004_1-n_parcombpay_2004_7
			n_parcombpay_2005_1-n_parcombpay_2005_7
			n_parcombpay_2006_1-n_parcombpay_2006_7
			n_parcombpay_2007_1-n_parcombpay_2007_7
			n_parcombpay_2008_1-n_parcombpay_2008_7
			n_parcombpay_2009_1-n_parcombpay_2009_7
			n_parcombpay_2010_1-n_parcombpay_2010_7
			n_parcombpay_2011_1-n_parcombpay_2011_7
			n_parcombpay_2012_1-n_parcombpay_2012_7

			n_paronssi_1985_1-n_paronssi_1985_7
			n_paronssi_1986_1-n_paronssi_1986_7
			n_paronssi_1987_1-n_paronssi_1987_7
			n_paronssi_1988_1-n_paronssi_1988_7
			n_paronssi_1989_1-n_paronssi_1989_7
			n_paronssi_1990_1-n_paronssi_1990_7
			n_paronssi_1991_1-n_paronssi_1991_7
			n_paronssi_1992_1-n_paronssi_1992_7
			n_paronssi_1993_1-n_paronssi_1993_7
			n_paronssi_1994_1-n_paronssi_1994_7
			n_paronssi_1995_1-n_paronssi_1995_7
			n_paronssi_1996_1-n_paronssi_1996_7
			n_paronssi_1997_1-n_paronssi_1997_7
			n_paronssi_1998_1-n_paronssi_1998_7
			n_paronssi_1999_1-n_paronssi_1999_7
			n_paronssi_2000_1-n_paronssi_2000_7
			n_paronssi_2001_1-n_paronssi_2001_7
			n_paronssi_2002_1-n_paronssi_2002_7
			n_paronssi_2003_1-n_paronssi_2003_7
			n_paronssi_2004_1-n_paronssi_2004_7
			n_paronssi_2005_1-n_paronssi_2005_7
			n_paronssi_2006_1-n_paronssi_2006_7
			n_paronssi_2007_1-n_paronssi_2007_7
			n_paronssi_2008_1-n_paronssi_2008_7
			n_paronssi_2009_1-n_paronssi_2009_7
			n_paronssi_2010_1-n_paronssi_2010_7
			n_paronssi_2011_1-n_paronssi_2011_7
			n_paronssi_2012_1-n_paronssi_2012_7
			;
			

	retain 	 
			ssn1-ssn7 
			toa_ssr1-toa_ssr7 
			mft_ssr1-mft_ssr7
			dob_ssr1-dob_ssr7
			dobyy_ssr1-dobyy_ssr7 
			dod_ssr1-dod_ssr7 
			sex_ssr1-sex_ssr7
			
			inhh0206_1-inhh0206_7
			n_parcombpay_1985_1-n_parcombpay_1985_7
			n_parcombpay_1986_1-n_parcombpay_1986_7
			n_parcombpay_1987_1-n_parcombpay_1987_7
			n_parcombpay_1988_1-n_parcombpay_1988_7
			n_parcombpay_1989_1-n_parcombpay_1989_7
			n_parcombpay_1990_1-n_parcombpay_1990_7
			n_parcombpay_1991_1-n_parcombpay_1991_7
			n_parcombpay_1992_1-n_parcombpay_1992_7
			n_parcombpay_1993_1-n_parcombpay_1993_7
			n_parcombpay_1994_1-n_parcombpay_1994_7
			n_parcombpay_1995_1-n_parcombpay_1995_7
			n_parcombpay_1996_1-n_parcombpay_1996_7
			n_parcombpay_1997_1-n_parcombpay_1997_7
			n_parcombpay_1998_1-n_parcombpay_1998_7
			n_parcombpay_1999_1-n_parcombpay_1999_7
			n_parcombpay_2000_1-n_parcombpay_2000_7
			n_parcombpay_2001_1-n_parcombpay_2001_7
			n_parcombpay_2002_1-n_parcombpay_2002_7
			n_parcombpay_2003_1-n_parcombpay_2003_7
			n_parcombpay_2004_1-n_parcombpay_2004_7
			n_parcombpay_2005_1-n_parcombpay_2005_7
			n_parcombpay_2006_1-n_parcombpay_2006_7
			n_parcombpay_2007_1-n_parcombpay_2007_7
			n_parcombpay_2008_1-n_parcombpay_2008_7
			n_parcombpay_2009_1-n_parcombpay_2009_7
			n_parcombpay_2010_1-n_parcombpay_2010_7
			n_parcombpay_2011_1-n_parcombpay_2011_7
			n_parcombpay_2012_1-n_parcombpay_2012_7

			n_paronssi_1985_1-n_paronssi_1985_7
			n_paronssi_1986_1-n_paronssi_1986_7
			n_paronssi_1987_1-n_paronssi_1987_7
			n_paronssi_1988_1-n_paronssi_1988_7
			n_paronssi_1989_1-n_paronssi_1989_7
			n_paronssi_1990_1-n_paronssi_1990_7
			n_paronssi_1991_1-n_paronssi_1991_7
			n_paronssi_1992_1-n_paronssi_1992_7
			n_paronssi_1993_1-n_paronssi_1993_7
			n_paronssi_1994_1-n_paronssi_1994_7
			n_paronssi_1995_1-n_paronssi_1995_7
			n_paronssi_1996_1-n_paronssi_1996_7
			n_paronssi_1997_1-n_paronssi_1997_7
			n_paronssi_1998_1-n_paronssi_1998_7
			n_paronssi_1999_1-n_paronssi_1999_7
			n_paronssi_2000_1-n_paronssi_2000_7
			n_paronssi_2001_1-n_paronssi_2001_7
			n_paronssi_2002_1-n_paronssi_2002_7
			n_paronssi_2003_1-n_paronssi_2003_7
			n_paronssi_2004_1-n_paronssi_2004_7
			n_paronssi_2005_1-n_paronssi_2005_7
			n_paronssi_2006_1-n_paronssi_2006_7
			n_paronssi_2007_1-n_paronssi_2007_7
			n_paronssi_2008_1-n_paronssi_2008_7
			n_paronssi_2009_1-n_paronssi_2009_7
			n_paronssi_2010_1-n_paronssi_2010_7
			n_paronssi_2011_1-n_paronssi_2011_7
			n_paronssi_2012_1-n_paronssi_2012_7
			;

	array	assn(1:7) 			ssn1-ssn7 ; 
	array	atoa_ssr(1:7) $ 2	toa_ssr1-toa_ssr7 ;
	array	amft_ssr(1:7) $ 2	mft_ssr1-mft_ssr7;
	array	adob_ssr(1:7)		dob_ssr1-dob_ssr7;
	array	adobyy_ssr(1:7)		dobyy_ssr1-dobyy_ssr7; 
	array	adod_ssr(1:7)		dod_ssr1-dod_ssr7 ;
	array	asex_ssr(1:7) $ 2	sex_ssr1-sex_ssr7;

	array 	ainhh0206(1:7)			inhh0206_1-inhh0206_7;		
	array 	aparcombpay_1985(1:7) 	n_parcombpay_1985_1-n_parcombpay_1985_7;
	array 	aparcombpay_1986(1:7) 	n_parcombpay_1986_1-n_parcombpay_1986_7;
	array 	aparcombpay_1987(1:7) 	n_parcombpay_1987_1-n_parcombpay_1987_7;
	array 	aparcombpay_1988(1:7) 	n_parcombpay_1988_1-n_parcombpay_1988_7;
	array 	aparcombpay_1989(1:7) 	n_parcombpay_1989_1-n_parcombpay_1989_7;
	array 	aparcombpay_1990(1:7) 	n_parcombpay_1990_1-n_parcombpay_1990_7;
	array 	aparcombpay_1991(1:7) 	n_parcombpay_1991_1-n_parcombpay_1991_7;
	array 	aparcombpay_1992(1:7) 	n_parcombpay_1992_1-n_parcombpay_1992_7;
	array 	aparcombpay_1993(1:7) 	n_parcombpay_1993_1-n_parcombpay_1993_7;
	array 	aparcombpay_1994(1:7) 	n_parcombpay_1994_1-n_parcombpay_1994_7;
	array 	aparcombpay_1995(1:7) 	n_parcombpay_1995_1-n_parcombpay_1995_7;
	array 	aparcombpay_1996(1:7) 	n_parcombpay_1996_1-n_parcombpay_1996_7;
	array 	aparcombpay_1997(1:7) 	n_parcombpay_1997_1-n_parcombpay_1997_7;
	array 	aparcombpay_1998(1:7) 	n_parcombpay_1998_1-n_parcombpay_1998_7;
	array 	aparcombpay_1999(1:7) 	n_parcombpay_1999_1-n_parcombpay_1999_7;
	array 	aparcombpay_2000(1:7) 	n_parcombpay_2000_1-n_parcombpay_2000_7;
	array 	aparcombpay_2001(1:7) 	n_parcombpay_2001_1-n_parcombpay_2001_7;
	array 	aparcombpay_2002(1:7) 	n_parcombpay_2002_1-n_parcombpay_2002_7;
	array 	aparcombpay_2003(1:7) 	n_parcombpay_2003_1-n_parcombpay_2003_7;
	array 	aparcombpay_2004(1:7) 	n_parcombpay_2004_1-n_parcombpay_2004_7;
	array 	aparcombpay_2005(1:7) 	n_parcombpay_2005_1-n_parcombpay_2005_7;
	array 	aparcombpay_2006(1:7) 	n_parcombpay_2006_1-n_parcombpay_2006_7;
	array 	aparcombpay_2007(1:7) 	n_parcombpay_2007_1-n_parcombpay_2007_7;
	array 	aparcombpay_2008(1:7) 	n_parcombpay_2008_1-n_parcombpay_2008_7;
	array 	aparcombpay_2009(1:7) 	n_parcombpay_2009_1-n_parcombpay_2009_7;
	array 	aparcombpay_2010(1:7) 	n_parcombpay_2010_1-n_parcombpay_2010_7;
	array 	aparcombpay_2011(1:7) 	n_parcombpay_2011_1-n_parcombpay_2011_7;
	array 	aparcombpay_2012(1:7) 	n_parcombpay_2012_1-n_parcombpay_2012_7;

	array 	aparonssi_1985(1:7) 	n_paronssi_1985_1-n_paronssi_1985_7;
	array 	aparonssi_1986(1:7) 	n_paronssi_1986_1-n_paronssi_1986_7;
	array 	aparonssi_1987(1:7) 	n_paronssi_1987_1-n_paronssi_1987_7;
	array 	aparonssi_1988(1:7) 	n_paronssi_1988_1-n_paronssi_1988_7;
	array 	aparonssi_1989(1:7) 	n_paronssi_1989_1-n_paronssi_1989_7;
	array 	aparonssi_1990(1:7) 	n_paronssi_1990_1-n_paronssi_1990_7;
	array 	aparonssi_1991(1:7) 	n_paronssi_1991_1-n_paronssi_1991_7;
	array 	aparonssi_1992(1:7) 	n_paronssi_1992_1-n_paronssi_1992_7;
	array 	aparonssi_1993(1:7) 	n_paronssi_1993_1-n_paronssi_1993_7;
	array 	aparonssi_1994(1:7) 	n_paronssi_1994_1-n_paronssi_1994_7;
	array 	aparonssi_1995(1:7) 	n_paronssi_1995_1-n_paronssi_1995_7;
	array 	aparonssi_1996(1:7) 	n_paronssi_1996_1-n_paronssi_1996_7;
	array 	aparonssi_1997(1:7) 	n_paronssi_1997_1-n_paronssi_1997_7;
	array 	aparonssi_1998(1:7) 	n_paronssi_1998_1-n_paronssi_1998_7;
	array 	aparonssi_1999(1:7) 	n_paronssi_1999_1-n_paronssi_1999_7;
	array 	aparonssi_2000(1:7) 	n_paronssi_2000_1-n_paronssi_2000_7;
	array 	aparonssi_2001(1:7) 	n_paronssi_2001_1-n_paronssi_2001_7;
	array 	aparonssi_2002(1:7) 	n_paronssi_2002_1-n_paronssi_2002_7;
	array 	aparonssi_2003(1:7) 	n_paronssi_2003_1-n_paronssi_2003_7;
	array 	aparonssi_2004(1:7) 	n_paronssi_2004_1-n_paronssi_2004_7;
	array 	aparonssi_2005(1:7) 	n_paronssi_2005_1-n_paronssi_2005_7;
	array 	aparonssi_2006(1:7) 	n_paronssi_2006_1-n_paronssi_2006_7;
	array 	aparonssi_2007(1:7) 	n_paronssi_2007_1-n_paronssi_2007_7;
	array 	aparonssi_2008(1:7) 	n_paronssi_2008_1-n_paronssi_2008_7;
	array 	aparonssi_2009(1:7) 	n_paronssi_2009_1-n_paronssi_2009_7;
	array 	aparonssi_2010(1:7) 	n_paronssi_2010_1-n_paronssi_2010_7;
	array 	aparonssi_2011(1:7) 	n_paronssi_2011_1-n_paronssi_2011_7;
	array 	aparonssi_2012(1:7) 	n_paronssi_2012_1-n_paronssi_2012_7;

	if first.hun then
	do;
		do i=1 to 7;
			assn(i) 		=.;	
			atoa_ssr(i)		="";
			amft_ssr(i)		="";	
			adob_ssr(i)		=.;	
			adobyy_ssr(i)	=.;		
			adod_ssr(i)		=.;	
			asex_ssr(i)		="";

			ainhh0206(i)		=.;
			aparcombpay_1985(i)	=.;
			aparcombpay_1986(i)	=.;
			aparcombpay_1987(i)	=.;
			aparcombpay_1988(i)	=.;
			aparcombpay_1989(i)	=.;
			aparcombpay_1990(i)	=.;
			aparcombpay_1991(i)	=.;
			aparcombpay_1992(i)	=.;
			aparcombpay_1993(i)	=.;
			aparcombpay_1994(i)	=.;
			aparcombpay_1995(i)	=.;
			aparcombpay_1996(i)	=.;
			aparcombpay_1997(i)	=.;
			aparcombpay_1998(i)	=.;
			aparcombpay_1999(i)	=.;
			aparcombpay_2000(i)	=.;
			aparcombpay_2001(i)	=.;
			aparcombpay_2002(i)	=.;
			aparcombpay_2003(i)	=.;
			aparcombpay_2004(i)	=.;
			aparcombpay_2005(i)	=.;
			aparcombpay_2006(i)	=.;
			aparcombpay_2007(i)	=.;
			aparcombpay_2008(i)	=.;
			aparcombpay_2009(i)	=.;
			aparcombpay_2010(i)	=.;
			aparcombpay_2011(i)	=.;
			aparcombpay_2012(i)	=.;

			aparonssi_1985(i)	=.;
			aparonssi_1986(i)	=.;
			aparonssi_1987(i)	=.;
			aparonssi_1988(i)	=.;
			aparonssi_1989(i)	=.;
			aparonssi_1990(i)	=.;
			aparonssi_1991(i)	=.;
			aparonssi_1992(i)	=.;
			aparonssi_1993(i)	=.;
			aparonssi_1994(i)	=.;
			aparonssi_1995(i)	=.;
			aparonssi_1996(i)	=.;
			aparonssi_1997(i)	=.;
			aparonssi_1998(i)	=.;
			aparonssi_1999(i)	=.;
			aparonssi_2000(i)	=.;
			aparonssi_2001(i)	=.;
			aparonssi_2002(i)	=.;
			aparonssi_2003(i)	=.;
			aparonssi_2004(i)	=.;
			aparonssi_2005(i)	=.;
			aparonssi_2006(i)	=.;
			aparonssi_2007(i)	=.;
			aparonssi_2008(i)	=.;
			aparonssi_2009(i)	=.;
			aparonssi_2010(i)	=.;
			aparonssi_2011(i)	=.;
			aparonssi_2012(i)	=.;
		end;
	end;

	assn(par_id) 		= ssn ;	
	atoa_ssr(par_id)	= toa_ssr ;
	amft_ssr(par_id)	= mft_ssr ;	
	adob_ssr(par_id)	= dob_ssr ;	
	adobyy_ssr(par_id)	= dobyy_ssr ;		
	adod_ssr(par_id)	= dod_ssr ;	
	asex_ssr(par_id)	= sex_ssr;

	ainhh0206(par_id)			= inhh0206;
	aparcombpay_1985(par_id)	= n_parcombpay_1985;
	aparcombpay_1986(par_id)	= n_parcombpay_1986;
	aparcombpay_1987(par_id)	= n_parcombpay_1987;
	aparcombpay_1988(par_id)	= n_parcombpay_1988;
	aparcombpay_1989(par_id)	= n_parcombpay_1989;
	aparcombpay_1990(par_id)	= n_parcombpay_1990;
	aparcombpay_1991(par_id)	= n_parcombpay_1991;
	aparcombpay_1992(par_id)	= n_parcombpay_1992;
	aparcombpay_1993(par_id)	= n_parcombpay_1993;
	aparcombpay_1994(par_id)	= n_parcombpay_1994;
	aparcombpay_1995(par_id)	= n_parcombpay_1995;
	aparcombpay_1996(par_id)	= n_parcombpay_1996;
	aparcombpay_1997(par_id)	= n_parcombpay_1997;
	aparcombpay_1998(par_id)	= n_parcombpay_1998;
	aparcombpay_1999(par_id)	= n_parcombpay_1999;
	aparcombpay_2000(par_id)	= n_parcombpay_2000;
	aparcombpay_2001(par_id)	= n_parcombpay_2001;
	aparcombpay_2002(par_id)	= n_parcombpay_2002;
	aparcombpay_2003(par_id)	= n_parcombpay_2003;
	aparcombpay_2004(par_id)	= n_parcombpay_2004;
	aparcombpay_2005(par_id)	= n_parcombpay_2005;
	aparcombpay_2006(par_id)	= n_parcombpay_2006;
	aparcombpay_2007(par_id)	= n_parcombpay_2007;
	aparcombpay_2008(par_id)	= n_parcombpay_2008;
	aparcombpay_2009(par_id)	= n_parcombpay_2009;
	aparcombpay_2010(par_id)	= n_parcombpay_2010;
	aparcombpay_2011(par_id)	= n_parcombpay_2011;
	aparcombpay_2012(par_id)	= n_parcombpay_2012;

	aparonssi_1985(par_id)	= n_paronssi_1985;
	aparonssi_1986(par_id)	= n_paronssi_1986;
	aparonssi_1987(par_id)	= n_paronssi_1987;
	aparonssi_1988(par_id)	= n_paronssi_1988;
	aparonssi_1989(par_id)	= n_paronssi_1989;
	aparonssi_1990(par_id)	= n_paronssi_1990;
	aparonssi_1991(par_id)	= n_paronssi_1991;
	aparonssi_1992(par_id)	= n_paronssi_1992;
	aparonssi_1993(par_id)	= n_paronssi_1993;
	aparonssi_1994(par_id)	= n_paronssi_1994;
	aparonssi_1995(par_id)	= n_paronssi_1995;
	aparonssi_1996(par_id)	= n_paronssi_1996;
	aparonssi_1997(par_id)	= n_paronssi_1997;
	aparonssi_1998(par_id)	= n_paronssi_1998;
	aparonssi_1999(par_id)	= n_paronssi_1999;
	aparonssi_2000(par_id)	= n_paronssi_2000;
	aparonssi_2001(par_id)	= n_paronssi_2001;
	aparonssi_2002(par_id)	= n_paronssi_2002;
	aparonssi_2003(par_id)	= n_paronssi_2003;
	aparonssi_2004(par_id)	= n_paronssi_2004;
	aparonssi_2005(par_id)	= n_paronssi_2005;
	aparonssi_2006(par_id)	= n_paronssi_2006;
	aparonssi_2007(par_id)	= n_paronssi_2007;
	aparonssi_2008(par_id)	= n_paronssi_2008;
	aparonssi_2009(par_id)	= n_paronssi_2009;
	aparonssi_2010(par_id)	= n_paronssi_2010;
	aparonssi_2011(par_id)	= n_paronssi_2011;
	aparonssi_2012(par_id)	= n_paronssi_2012;

	if last.hun then output;

run;

data manasi.par_ssr_hunmerge_wide;
	set manasi.par_ssr_hunmerge_wide;

	* Create macro for summing over all SSR variables ;
	%macro sumssr(year);
		n_hhcombpay_&year.=SUM(OF n_parcombpay_&year._:);
		n_hhonssi_&year.=SUM(OF n_paronssi_&year._:);

		n_hhcombpay0206_&year.=0;
		if inhh0206_1=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._1;
		if inhh0206_2=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._2;
		if inhh0206_3=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._3;
		if inhh0206_4=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._4;
		if inhh0206_5=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._5;
		if inhh0206_6=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._6;
		if inhh0206_7=1 then n_hhcombpay0206_&year.=n_hhcombpay0206_&year.+n_parcombpay_&year._7;

		n_hhonssi0206_&year.=0;
		if inhh0206_1=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._1;
		if inhh0206_2=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._2;
		if inhh0206_3=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._3;
		if inhh0206_4=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._4;
		if inhh0206_5=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._5;
		if inhh0206_6=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._6;
		if inhh0206_7=1 then n_hhonssi0206_&year.=n_hhonssi0206_&year.+n_paronssi_&year._7;

	%mend sumssr;

	%sumssr(1985);
	%sumssr(1986);
	%sumssr(1987);
	%sumssr(1988);
	%sumssr(1989);
	%sumssr(1990);
	%sumssr(1991);
	%sumssr(1992);
	%sumssr(1993);
	%sumssr(1994);
	%sumssr(1995);
	%sumssr(1996);
	%sumssr(1997);
	%sumssr(1998);
	%sumssr(1999);
	%sumssr(2000);
	%sumssr(2001);
	%sumssr(2002);
	%sumssr(2003);
	%sumssr(2004);
	%sumssr(2005);
	%sumssr(2006);
	%sumssr(2007);
	%sumssr(2008);
	%sumssr(2009);
	%sumssr(2010);
	%sumssr(2011);
	%sumssr(2012);

	%macro dropvar(var);
		drop &var.3-&var.7;
	%mend dropvar;

	%dropvar(ssn);
	%dropvar(toa_ssr);
	%dropvar(mft_ssr);
	%dropvar(dob_ssr);
	%dropvar(dobyy_ssr);
	%dropvar(dod_ssr);
	%dropvar(sex_ssr);

	%macro dropssr(year);
		drop n_parcombpay_&year._1-n_parcombpay_&year._7;
		drop n_paronssi_&year._1-n_paronssi_&year._7;
	%mend dropssr;

	%dropssr(1985);
	%dropssr(1986);
	%dropssr(1987);
	%dropssr(1988);
	%dropssr(1989);
	%dropssr(1990);
	%dropssr(1991);
	%dropssr(1992);
	%dropssr(1993);
	%dropssr(1994);
	%dropssr(1995);
	%dropssr(1996);
	%dropssr(1997);
	%dropssr(1998);
	%dropssr(1999);
	%dropssr(2000);
	%dropssr(2001);
	%dropssr(2002);
	%dropssr(2003);
	%dropssr(2004);
	%dropssr(2005);
	%dropssr(2006);
	%dropssr(2007);
	%dropssr(2008);
	%dropssr(2009);
	%dropssr(2010);
	%dropssr(2011);
	%dropssr(2012);

	%macro rename(var,no);
		rename &var.&no.=par&no._&var.;
	%mend rename;

	%rename(ssn,1);
	%rename(ssn,2);
	%rename(toa_ssr,1);
	%rename(toa_ssr,2);
	%rename(mft_ssr,1);
	%rename(mft_ssr,2);
	%rename(dob_ssr,1);
	%rename(dob_ssr,2);
	%rename(dobyy_ssr,1);
	%rename(dobyy_ssr,2);
	%rename(dod_ssr,1);
	%rename(dod_ssr,2);
	%rename(sex_ssr,1);
	%rename(sex_ssr,2);

run;
